Chip 2001 June/CHIP Haziran 2001.iso/prog/yerli/07/_SETUP.1/Emlak 2000.exe/0/RCDATA/TFORM23/TFORM23.txt

Text File | 1999-02-04 | 14KB | 682 lines

object Form23: TForm23
  Left = 217
  Top = 136
  BorderStyle = bsNone
  Caption = 'M��teri Talepleri Giri�i'
  ClientHeight = 480
  ClientWidth = 640
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 640
    Height = 480
    AutoSize = True
    Picture.Data = {<image000.jpg>}
    OnMouseDown = Image1MouseDown
  end
  object Label1: TLabel
    Left = 72
    Top = 112
    Width = 24
    Height = 13
    Caption = 'Semt'
    Transparent = True
  end
  object Label8: TLabel
    Left = 72
    Top = 160
    Width = 16
    Height = 13
    Caption = 'Kat'
    Transparent = True
  end
  object Label10: TLabel
    Left = 72
    Top = 184
    Width = 20
    Height = 13
    Caption = 'Oda'
    Transparent = True
  end
  object Label11: TLabel
    Left = 72
    Top = 328
    Width = 27
    Height = 13
    Caption = 'Adres'
    Transparent = True
  end
  object Label12: TLabel
    Left = 72
    Top = 352
    Width = 43
    Height = 13
    Caption = 'A��klama'
    Transparent = True
  end
  object Label13: TLabel
    Left = 176
    Top = 248
    Width = 53
    Height = 13
    Caption = 'Fiyat Aral���'
    Transparent = True
  end
  object Label14: TLabel
    Left = 72
    Top = 208
    Width = 46
    Height = 13
    Caption = 'Is� Sistemi'
    Transparent = True
  end
  object Image2: TImage
    Left = 456
    Top = 245
    Width = 13
    Height = 15
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    Transparent = True
  end
  object Label19: TLabel
    Left = 72
    Top = 136
    Width = 29
    Height = 13
    Caption = 'Emlak'
    Transparent = True
  end
  object Label21: TLabel
    Left = 360
    Top = 112
    Width = 18
    Height = 13
    Caption = '�sim'
    Transparent = True
  end
  object Label22: TLabel
    Left = 360
    Top = 136
    Width = 15
    Height = 13
    Caption = 'Tel'
    Transparent = True
  end
  object Label23: TLabel
    Left = 360
    Top = 160
    Width = 26
    Height = 13
    Caption = '�� Tel'
    Transparent = True
  end
  object Label24: TLabel
    Left = 360
    Top = 184
    Width = 37
    Height = 13
    Caption = 'Cep Tel'
    Transparent = True
  end
  object Label26: TLabel
    Left = 360
    Top = 208
    Width = 31
    Height = 13
    Caption = 'Durum'
    Transparent = True
  end
  object Image3: TImage
    Left = 72
    Top = 408
    Width = 151
    Height = 38
    AutoSize = True
    Picture.Data = {<image002.jpg>}
    Visible = False
  end
  object Image6: TImage
    Left = 248
    Top = 408
    Width = 151
    Height = 38
    AutoSize = True
    Picture.Data = {<image003.jpg>}
    Visible = False
  end
  object Image7: TImage
    Left = 416
    Top = 408
    Width = 151
    Height = 38
    AutoSize = True
    Picture.Data = {<image004.jpg>}
    Visible = False
  end
  object Label2: TLabel
    Left = 80
    Top = 416
    Width = 137
    Height = 25
    Alignment = taCenter
    AutoSize = False
    Caption = 'Liste'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    OnMouseDown = Label2MouseDown
    OnMouseUp = Label2MouseUp
  end
  object Label27: TLabel
    Left = 256
    Top = 416
    Width = 137
    Height = 25
    Alignment = taCenter
    AutoSize = False
    Caption = 'Yazd�r'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    OnMouseDown = Label27MouseDown
    OnMouseUp = Label27MouseUp
  end
  object Label28: TLabel
    Left = 424
    Top = 416
    Width = 137
    Height = 25
    Alignment = taCenter
    AutoSize = False
    Caption = '��k��'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    OnMouseDown = Label28MouseDown
    OnMouseUp = Label28MouseUp
  end
  object Image4: TImage
    Left = 544
    Top = 32
    Width = 30
    Height = 28
    AutoSize = True
    Picture.Data = {<image005.jpg>}
    OnMouseDown = Image4MouseDown
    OnMouseUp = Image4MouseUp
  end
  object Image5: TImage
    Left = 576
    Top = 32
    Width = 30
    Height = 28
    AutoSize = True
    Picture.Data = {<image006.jpg>}
    OnMouseDown = Image5MouseDown
    OnMouseUp = Image5MouseUp
  end
  object Image8: TImage
    Left = 544
    Top = 32
    Width = 30
    Height = 28
    AutoSize = True
    Picture.Data = {<image007.jpg>}
    Visible = False
  end
  object Image9: TImage
    Left = 576
    Top = 32
    Width = 30
    Height = 28
    AutoSize = True
    Picture.Data = {<image008.jpg>}
    Visible = False
  end
  object Label3: TLabel
    Left = 480
    Top = 248
    Width = 28
    Height = 13
    Caption = 'Aral���'
    Transparent = True
  end
  object Label4: TLabel
    Left = 72
    Top = 272
    Width = 43
    Height = 13
    Caption = '�lk De�er'
    Transparent = True
  end
  object Label5: TLabel
    Left = 72
    Top = 296
    Width = 57
    Height = 13
    Caption = '�kinci De�er'
    Transparent = True
  end
  object Label6: TLabel
    Left = 360
    Top = 272
    Width = 43
    Height = 13
    Caption = '�lk De�er'
    Transparent = True
  end
  object Label7: TLabel
    Left = 360
    Top = 296
    Width = 57
    Height = 13
    Caption = '�kinci De�er'
    Transparent = True
  end
  object Label9: TLabel
    Left = 72
    Top = 232
    Width = 69
    Height = 13
    Caption = '�stenen Durum'
    Transparent = True
  end
  object Label15: TLabel
    Left = 360
    Top = 232
    Width = 52
    Height = 13
    Caption = 'Kay�t Tarihi'
    Transparent = True
  end
  object DBEdit1: TDBEdit
    Left = 144
    Top = 288
    Width = 121
    Height = 21
    DataField = 'Ikincifiyat'
    DataSource = DataSource1
    TabOrder = 12
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBNavigator1: TDBNavigator
    Left = 40
    Top = 72
    Width = 570
    Height = 18
    DataSource = DataSource1
    Hints.Strings = (
      '�lk Kay�t'
      '�nceki Kay�t'
      'Sonraki Kay�t'
      'Son Kay�t'
      'Kay�t Ekle'
      'Kay�t Sil'
      'De�i�iklik'
      'Onayla'
      'De�i�iklik �ptal'
      'Yenile')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 17
  end
  object DBEdit8: TDBEdit
    Left = 144
    Top = 264
    Width = 121
    Height = 21
    DataField = 'Fiyatilkdeger'
    DataSource = DataSource1
    TabOrder = 11
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBMemo1: TDBMemo
    Left = 144
    Top = 352
    Width = 401
    Height = 41
    DataField = 'Notlar'
    DataSource = DataSource1
    TabOrder = 16
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit19: TDBEdit
    Left = 424
    Top = 104
    Width = 121
    Height = 21
    DataField = 'Isim'
    DataSource = DataSource1
    TabOrder = 6
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit20: TDBEdit
    Left = 424
    Top = 128
    Width = 121
    Height = 21
    DataField = 'Telefon'
    DataSource = DataSource1
    MaxLength = 15
    TabOrder = 7
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit21: TDBEdit
    Left = 424
    Top = 152
    Width = 121
    Height = 21
    DataField = 'Istel'
    DataSource = DataSource1
    MaxLength = 15
    TabOrder = 8
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit22: TDBEdit
    Left = 424
    Top = 176
    Width = 121
    Height = 21
    DataField = 'Ceptel'
    DataSource = DataSource1
    MaxLength = 15
    TabOrder = 9
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBMemo2: TDBMemo
    Left = 144
    Top = 320
    Width = 401
    Height = 25
    DataField = 'Adres'
    DataSource = DataSource1
    TabOrder = 15
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 144
    Top = 104
    Width = 121
    Height = 21
    DataField = 'Semtadi'
    DataSource = DataSource1
    KeyField = 'Semtler'
    ListField = 'Semtler'
    ListSource = DataSource2
    TabOrder = 0
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBLookupComboBox2: TDBLookupComboBox
    Left = 144
    Top = 128
    Width = 121
    Height = 21
    DataField = 'Emlak'
    DataSource = DataSource1
    KeyField = 'EmlakTipi'
    ListField = 'EmlakTipi'
    ListSource = DataSource3
    TabOrder = 1
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBComboBox1: TDBComboBox
    Left = 144
    Top = 176
    Width = 121
    Height = 21
    DataField = 'Oda'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      '2+1'
      '3+1'
      '4+1'
      'Farketmez')
    TabOrder = 3
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBComboBox2: TDBComboBox
    Left = 144
    Top = 152
    Width = 121
    Height = 21
    DataField = 'Kat'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      'Farketmez')
    TabOrder = 2
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit2: TDBEdit
    Left = 424
    Top = 264
    Width = 121
    Height = 21
    DataField = 'IlkMetre2'
    DataSource = DataSource1
    TabOrder = 13
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit3: TDBEdit
    Left = 424
    Top = 288
    Width = 121
    Height = 21
    DataField = 'Ikincimetre2'
    DataSource = DataSource1
    TabOrder = 14
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBComboBox3: TDBComboBox
    Left = 424
    Top = 200
    Width = 121
    Height = 21
    DataField = 'Durum'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'Buldu'
      'Bulamad�')
    TabOrder = 10
  end
  object DBComboBox4: TDBComboBox
    Left = 144
    Top = 200
    Width = 121
    Height = 21
    DataField = 'Isisistemi'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'Sobal�'
      'Do�al Gaz Kaloriferli'
      'Do�al Gaz Sobal�'
      'Kalofiferli')
    TabOrder = 4
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBComboBox5: TDBComboBox
    Left = 144
    Top = 224
    Width = 121
    Height = 21
    DataField = 'Istek'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'Kiralanmad�'
      'Sat�lmad�')
    TabOrder = 5
    OnKeyPress = DBLookupComboBox1KeyPress
  end
  object DBEdit4: TDBEdit
    Left = 424
    Top = 224
    Width = 121
    Height = 21
    DataField = 'Tavanlar'
    DataSource = DataSource1
    TabOrder = 18
    OnEnter = DBEdit4Enter
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 56
    Top = 8
  end
  object Table1: TTable
    Active = True
    AfterPost = Table1AfterPost
    TableName = 'musteritalepleri.db'
    Left = 88
    Top = 24
    object Table1No: TAutoIncField
      FieldName = 'No'
      ReadOnly = True
    end
    object Table1IlkMetre2: TFloatField
      FieldName = 'IlkMetre2'
    end
    object Table1Ikincimetre2: TFloatField
      FieldName = 'Ikincimetre2'
    end
    object Table1Hidrofor: TStringField
      FieldName = 'Hidrofor'
      Size = 10
    end
    object Table1Zeminler: TStringField
      FieldName = 'Zeminler'
      Size = 15
    end
    object Table1Kapilar: TStringField
      FieldName = 'Kapilar'
      Size = 15
    end
    object Table1Ikincifiyat: TCurrencyField
      FieldName = 'Ikincifiyat'
    end
    object Table1Kat: TStringField
      FieldName = 'Kat'
      Size = 6
    end
    object Table1Notlar: TMemoField
      FieldName = 'Notlar'
      BlobType = ftMemo
      Size = 100
    end
    object Table1Dviz: TStringField
      FieldName = 'D�viz'
      Size = 15
    end
    object Table1Adres: TMemoField
      FieldName = 'Adres'
      BlobType = ftMemo
      Size = 50
    end
    object Table1Isim: TStringField
      FieldName = 'Isim'
    end
    object Table1Istel: TStringField
      FieldName = 'Istel'
      EditMask = '!\(999\) 999-99-99;1;_'
    end
    object Table1Anahtar: TStringField
      FieldName = 'Anahtar'
    end
    object Table1Fiyatilkdeger: TCurrencyField
      FieldName = 'Fiyatilkdeger'
    end
    object Table1Oda: TStringField
      FieldName = 'Oda'
    end
    object Table1Isisistemi: TStringField
      FieldName = 'Isisistemi'
    end
    object Table1Otopark: TStringField
      FieldName = 'Otopark'
    end
    object Table1Duvarlar: TStringField
      FieldName = 'Duvarlar'
    end
    object Table1Tavanlar: TStringField
      FieldName = 'Tavanlar'
    end
    object Table1Banyo: TStringField
      FieldName = 'Banyo'
    end
    object Table1Emlak: TStringField
      FieldName = 'Emlak'
    end
    object Table1Telefon: TStringField
      FieldName = 'Telefon'
      EditMask = '!\(999\) 999-99-99;1;_'
    end
    object Table1Ceptel: TStringField
      FieldName = 'Ceptel'
      EditMask = '!\(999\) 999-99-99;1;_'
    end
    object Table1Durum: TStringField
      FieldName = 'Durum'
    end
    object Table1Semtadi: TStringField
      FieldName = 'Semtadi'
    end
    object Table1Istek: TStringField
      FieldName = 'Istek'
      Size = 15
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 208
    Top = 8
  end
  object Table2: TTable
    Active = True
    TableName = 'semtler.db'
    Left = 272
    Top = 8
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 352
    Top = 16
  end
  object Table3: TTable
    Active = True
    TableName = 'emlaktanimlama.db'
    Left = 392
    Top = 8
  end
end